home *** CD-ROM | disk | FTP | other *** search
- object RAScontrol: TRAScontrol
- Left = 115
- Top = 108
- Width = 240
- Height = 361
- Caption = 'TransSoft: RAS control'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 16
- Top = 65
- Width = 160
- Height = 16
- AutoSize = False
- Caption = 'Available entries:'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Technical'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label2: TLabel
- Left = 48
- Top = 200
- Width = 38
- Height = 16
- AutoSize = False
- Caption = 'User:'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Technical'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label3: TLabel
- Left = 10
- Top = 223
- Width = 77
- Height = 20
- Caption = 'Password:'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Technical'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object LMDLabel1: TLMDLabel
- Left = 40
- Top = 3
- Width = 188
- Height = 28
- AutoSize = False
- Caption = 'RAS control'
- Font.Color = clBlue
- Font.Height = -27
- Font.Name = 'Technical'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object LMDLabel2: TLMDLabel
- Left = 33
- Top = 28
- Width = 188
- Height = 28
- AutoSize = False
- Caption = '(Remote access)'
- Font.Color = clBlue
- Font.Height = -21
- Font.Name = 'Technical'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object btnDial: TExplorerButton
- Left = 6
- Top = 247
- Width = 117
- Height = 66
- Hint = 'Connect or Disconnect depending on dial-status...!'
- Bitmap.Data = {
- 76020000424D7602000000000000760000002800000020000000200000000100
- 0400000000000002000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
- 6666666666666666666666666666666666666666666666666666666666666666
- 6666666666666666666666666666666666666666666666666666666666666700
- 0000000000007866666660766666000000000000000000666666766066700000
- 0000000000000008666606676670000000000000000000086666766066700000
- 0000000000000008666606676670000000000000000000086666766066700000
- 0000000000000008666606676670000000000000000000086666766066FFFFFF
- FFFFFFFFFFFFFFFF66660667666F0000000000000000007666667660707F0F77
- 77777777777780F6666606666666F0F00070007000780766666676666666F0F7
- 7777777777780F666666066666666F0F00700070078076666666766666666F0F
- 7F7F7F7F7F70F6666666066666666F00000000000000F66666667666666660FF
- FFFFFFFFFFFF0666666606677770800700000000007008880F66676000000007
- 0707070700700000006666077F00800770000000077008008F66666667700000
- 7000000007000008F666666666F70000700000000700008F6666666666667700
- 0000000000008F66666666666666668888888888888866666666666666666666
- 6666666666666666666666666666666666666666666666666666666666666666
- 6666666666666666666666666666666666666666666666666666}
- Caption = '&Connect selected entry'
- Options = [boMonoDisplay, boPopupMark]
- OnClick = btnDialClick
- ParentShowHint = False
- ShowHint = True
- end
- object Button1: TExplorerButton
- Left = 128
- Top = 247
- Width = 87
- Height = 66
- Hint = 'Close & disconnect TransSoft'#39's RAS control....!'
- Bitmap.Data = {
- 76020000424D7602000000000000760000002800000020000000200000000100
- 0400000000000002000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 8888888888888888888888888888888888888888888888888888888888888888
- 888888888888888888880000000000000000000000000000000077777030AAAA
- AAAAAAAAAAAAAA077777777770330AAAAAAAAAAAAAAAAA0777777777703330AA
- AAAAAAAAAAAAAA07777777777033330AAAAAAAAAAAAAAA077777777770333334
- AAAAACCCCCCCAA0777777777703333334AAAACCCCCCCAA077777777770333333
- 34AAACCCCCCCAA077777777770333333330AACCCCCCCAA077777777770333333
- 330CCCCCCCCCCC077777777770333333330ACCCCCCCCCA077777777770333333
- 330AACCCCCCCAA077777777770333333330AAACCCCCAAA077777777770333333
- 330AAAACCCAAAA077777777770333333330AAAAACAAAAA077777777770333333
- 330AAAAAAAAAAA07777777777033333333000AAAAAAAAA077777777770333333
- 330EE00AAAAAAA077777777770333333330EEEE0AAAAA0077777777770333333
- 330EEEEE00000E077777777770333333330EEEEEEEEEEE077777777770333333
- 330EEEEEEEEEEE077777777770333333330EE77EEEEEEE077777777770333333
- 330EE7F777EEEE077777777770333333330EE77F7FEEEE077777777770333333
- 330EEEEE77FEEE077777777770333333330EEEEEEEEEEE077777777770000000
- 0000000000000007777777777777777777777777777777777777}
- Caption = 'Cl&ose TS - RAS'
- Options = [boMonoDisplay, boPopupMark]
- OnClick = Button1Click
- ParentShowHint = False
- ShowHint = True
- end
- object ListBox1: TListBox
- Left = 15
- Top = 82
- Width = 201
- Height = 112
- Hint =
- 'Available dial up entries...Double click on entry or select and ' +
- 'click on button to dial...'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 16
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = ListBox1Click
- OnDblClick = btnDialClick
- end
- object Edit1: TEdit
- Left = 93
- Top = 197
- Width = 123
- Height = 21
- Hint = 'Users login name on selected host...'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- object Edit2: TEdit
- Left = 93
- Top = 222
- Width = 122
- Height = 21
- Hint = 'Password for above user...'
- ParentShowHint = False
- PasswordChar = '*'
- ShowHint = True
- TabOrder = 2
- end
- object Status: TStatusBar
- Left = 0
- Top = 315
- Width = 232
- Height = 19
- Panels = <>
- SimplePanel = True
- SimpleText = 'RAS is idle...'
- end
- object RAS: TRAS
- OnConnect = RASConnect
- OnDisconnect = RASDisconnect
- OnCallBack = RASCallBack
- OnAboutToOpenPort = RASAboutToOpenPort
- OnPortOpened = RASPortOpened
- OnAboutToConnDev = RASAboutToConnDev
- OnAuthenticate = RASAuthenticate
- OnAuthRetry = RASAuthRetry
- OnAuthCallBack = RASAuthCallBack
- OnAuthChangePassword = RASAuthChangePassword
- OnAuthAck = RASAuthAck
- OnReAuthenticate = RASReAuthenticate
- OnAuthenticated = RASAuthenticated
- OnPrepareforCallback = RASPrepareforCallback
- OnWaitForModemReset = RASWaitForModemReset
- OnRetryAuth = RASRetryAuth
- OnPasswordExpired = RASPasswordExpired
- Left = 198
- Top = 2
- end
- object BalloonHint1: TBalloonHint
- BorderColor = clBlack
- Color = clYellow
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxWidth = -4
- Behavior = [bbNoShowMouseDown, bbUseRegions, bbHideOnPaint]
- Position = bpBelowRight
- ShadowDepth = 8
- Shape = bsRoundRect
- Style = hsCustom
- Active = True
- Left = 4
- Top = 36
- end
- object OnlyOne1: TOnlyOne
- Left = 4
- Top = 2
- end
- end
-